options linesize = 72;

data los;
input name $8. gbush kerry nader 
cheney edwards lbush hclint bclint 
powell ashcroft mccain dempty reppty;
cards;
gwbush         0.0 73.0 62  8.0 68.0 20.0 51.5 41.0 24.0  7 25.5 50  5.0
kerry         73.0  0.0 56 78.0  1.0 54.0 15.0 17.0 47.0 77 37.0  2 74.5
nader         62.0 56.0  0 72.0 59.0 53.0 60.0 49.0 58.0 70 39.0 57 71.0
cheney         8.0 78.0 72  0.0 74.5 25.5 65.0 51.5 29.0 12 30.0 66  4.0
edwards       68.0  1.0 59 74.5  0.0 44.0 14.0 16.0 46.0 76 38.0  3 69.0
lbush         20.0 54.0 53 25.5 44.0  0.0 42.0 34.0  9.5 23 22.0 45 18.0
hclinton      51.5 15.0 60 65.0 14.0 42.0  0.0 19.0 32.0 67 40.0 13 55.0
bclinton      41.0 17.0 49 51.5 16.0 34.0 19.0  0.0 31.0 61 36.0 11 48.0
powell        24.0 47.0 58 29.0 46.0  9.5 32.0 31.0  0.0 28  9.5 35 21.0
ashcroft       7.0 77.0 70 12.0 76.0 23.0 67.0 61.0 28.0  0 33.0 63  6.0
mccain        25.5 37.0 39 30.0 38.0 22.0 40.0 36.0  9.5 33  0.0 43 27.0
dempty        50.0  2.0 57 66.0  3.0 45.0 13.0 11.0 35.0 63 43.0  0 64.0
reppty         5.0 74.5 71  4.0 69.0 18.0 55.0 48.0 21.0  6 27.0 64  0.0
;
run;

proc print;
run;

proc mds 
   coef = identity   condition = matrix
   data = los       dimension = 2
   fit = distance    formula = 1
   out = mdsc
   level = ordinal   untie
   pfinal;
id name;
var gbush kerry nader 
   cheney edwards lbush hclint bclint 
   powell ashcroft mccain dempty reppty;
title "Fit to distances";
run;

proc print data = mdsc;
run;

data mdsconf;
set mdsc;
if _type_ = "CONFIG";
keep _name_ dim1 dim2;
run;

proc print data = mdsconf;
run;
